perm filename LOSS.1[AID,LSP]1 blob sn#641901 filedate 1982-02-15 generic text, type C, neo UTF8
COMMENT āŠ—   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	(defmacro incr (x) `(1+ ,x))
C00003 00003
C00004 ENDMK
CāŠ—;
(defmacro incr (x) `(1+ ,x))
(defmacro init (x) `(foo ,x))
(do ((i (init 0) (incr i)))
    ((= i 0) t)
    (bazola))